home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / oop_tp55.zip / MTEST5.ASM < prev    next >
Assembly Source File  |  1980-01-07  |  896b  |  28 lines
  1. ;          MTEST5.ASM
  2. ;
  3. ;          a.lane 10/27/89
  4. ;
  5. DATA       SEGMENT    WORD PUBLIC
  6.            ASSUME DS:DATA
  7.            EXTRN XPOS:WORD
  8.            EXTRN YPOS:WORD
  9. DATA       ENDS
  10. CODE       SEGMENT BYTE PUBLIC
  11.            ASSUME CS:CODE
  12.            EXTRN EntryPoint : FAR
  13.  
  14. mstart     PROC       FAR
  15.            PUBLIC mstart
  16.            push ds               ; save mouse DS
  17.            mov ax, SEG DATA      ; get actual address of TP
  18.                                  ; global DS
  19.            mov ds, ax            ; copy TP global into DS
  20.            mov ds:XPOS,cx        ; store horiz coord in XPOS
  21.            mov ds:YPOS,dx        ; store vert coord in YPOS
  22.            CALL EntryPoint       ; call to main program
  23.            pop ds                ; restore mouse DS
  24.            RET                   ; outta here!
  25.            ENDP
  26.  
  27. CODE       ENDS
  28.            END